0 REM << CD26-1A >>
1 REM  COMMODARE #22-1 :
2 REM         MAKING CHANGE
3 REM  SOLUTION  BY  JIM SPEERS
4 REM
100 INPUT"ENTER AMOUNT: $";T:T%=T*100+.5:IFT%>1000THEN100
110 INPUT"ENTER # OF COINS:";C%:X%=T%-C%:IFX%<0THEN160
120 Y%=X%/4:D%=X%-4*Y%:Y%=Y%-2*D%:IFY%<0THEN160
130 Q%=Y%/6:N%=Y%-6*Q%:P%=C%-Q%-D%-N%:IFP%<0THEN160
140 Z%=Q%:Z$="QUARTER":GOSUB170:Z%=D%:Z$="DIME":GOSUB170
150 Z%=N%:Z$="NICKEL":GOSUB170:Z%=P%:Z$="PENNY":GOSUB170:END
160 PRINT"NO SOLUTION POSSIBLE":END
170 PRINTZ%;Z$;:IFZ$="PENNY"ANDZ%<>1THENPRINT"[157]IES":RETURN
180 IFZ%<>1THENPRINT"S":RETURN
190 PRINT:RETURN